object RepkontrForm: TRepkontrForm
  Left = 0
  Top = 0
  Caption = #1054#1090#1095#1077#1090' '#1087#1086' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103#1084
  ClientHeight = 588
  ClientWidth = 858
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lc1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 858
    Height = 588
    Align = alClient
    TabOrder = 0
    LayoutLookAndFeel = lcf1
    object grd1: TcxGrid
      Left = 10
      Top = 41
      Width = 250
      Height = 200
      TabOrder = 3
      LockedStateImageOptions.Effect = lsieDark
      LockedStateImageOptions.ShowText = True
      object v1: TcxGridDBTableView
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = src_Repkontr
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        object clv1ARCPLACE: TcxGridDBColumn
          DataBinding.FieldName = 'ARCPLACE'
          Visible = False
        end
        object clv1STRCODE: TcxGridDBColumn
          DataBinding.FieldName = 'STRCODE'
          Visible = False
        end
        object clv1OBJNAME: TcxGridDBColumn
          Caption = #1054#1073#1098#1077#1082#1090
          DataBinding.FieldName = 'OBJNAME'
          Visible = False
          GroupIndex = 0
        end
        object clv1ROOMNAME: TcxGridDBColumn
          Caption = #1055#1086#1084#1077#1097#1077#1085#1080#1077
          DataBinding.FieldName = 'ROOMNAME'
          Visible = False
          GroupIndex = 1
        end
        object clv1RACKNAME: TcxGridDBColumn
          Caption = #1057#1090#1077#1083#1072#1078' '#8470
          DataBinding.FieldName = 'RACKNAME'
          Width = 67
        end
        object clv1SHELF: TcxGridDBColumn
          Caption = #1055#1086#1083#1082#1072' '#8470
          DataBinding.FieldName = 'SHELF'
        end
        object clv1CELL: TcxGridDBColumn
          Caption = #1071#1095#1077#1081#1082#1072' '#8470
          DataBinding.FieldName = 'CELL'
          Width = 67
        end
        object clv1NUMBER: TcxGridDBColumn
          Caption = #1058#1086#1084' '#8470
          DataBinding.FieldName = 'NUMBER'
          Width = 68
        end
        object clv1CNAME: TcxGridDBColumn
          Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1090#1086#1084#1072
          DataBinding.FieldName = 'CNAME'
          Width = 256
        end
      end
      object l1: TcxGridLevel
        GridView = v1
      end
    end
    object cbb_Kontr: TcxLookupComboBox
      Left = 81
      Top = 10
      Properties.DropDownSizeable = True
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'CODE'
      Properties.ListColumns = <
        item
          FieldName = 'NAME'
        end>
      Properties.ListOptions.AnsiSort = True
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = cmDb.src_KONTRAGENT
      Style.HotTrack = False
      TabOrder = 0
      Width = 244
    end
    object btn_Refresh: TcxButton
      Left = 331
      Top = 10
      Width = 114
      Height = 25
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100
      OptionsImage.ImageIndex = 9
      OptionsImage.Images = cmDb.iml1
      TabOrder = 1
      OnClick = btn_RefreshClick
    end
    object btnExcel: TcxButton
      Left = 451
      Top = 10
      Width = 75
      Height = 25
      Caption = 'Excel'
      OptionsImage.ImageIndex = 16
      OptionsImage.Images = cmDb.iml1
      PaintStyle = bpsGlyph
      TabOrder = 2
      OnClick = btnExcelClick
    end
    object grp1: TdxLayoutGroup
      AlignHorz = ahClient
      AlignVert = avClient
      ButtonOptions.Buttons = <>
      Hidden = True
      ShowBorder = False
      Index = -1
    end
    object grplc1Group1: TdxLayoutGroup
      CaptionOptions.Text = 'New Group'
      Parent = grp1
      ButtonOptions.Buttons = <>
      LayoutDirection = ldHorizontal
      ShowBorder = False
      Index = 0
    end
    object grplc1Group2: TdxLayoutGroup
      AlignHorz = ahClient
      AlignVert = avClient
      CaptionOptions.Text = 'New Group'
      Parent = grp1
      ButtonOptions.Buttons = <>
      ShowBorder = False
      Index = 1
    end
    object itmlc1Item1: TdxLayoutItem
      AlignHorz = ahClient
      AlignVert = avClient
      CaptionOptions.Text = 'cxGrid1'
      CaptionOptions.Visible = False
      Parent = grplc1Group2
      Control = grd1
      ControlOptions.ShowBorder = False
      Index = 0
    end
    object itmlc1Item11: TdxLayoutItem
      CaptionOptions.Text = #1054#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
      Parent = grplc1Group1
      Control = cbb_Kontr
      ControlOptions.ShowBorder = False
      Index = 0
    end
    object itmlc1Item12: TdxLayoutItem
      CaptionOptions.Text = 'cxButton1'
      CaptionOptions.Visible = False
      Parent = grplc1Group1
      Control = btn_Refresh
      ControlOptions.ShowBorder = False
      Index = 1
    end
    object itmlc1Item13: TdxLayoutItem
      CaptionOptions.Text = 'cxButton1'
      CaptionOptions.Visible = False
      Parent = grplc1Group1
      Control = btnExcel
      ControlOptions.ShowBorder = False
      Index = 2
    end
  end
  object lf1: TdxLayoutLookAndFeelList
    Left = 760
    Top = 120
    object lcf1: TdxLayoutCxLookAndFeel
    end
  end
  object prop1: TcxPropertiesStore
    Components = <>
    StorageName = 'prop1'
    Left = 728
    Top = 120
  end
  object ds_RepKontr: TpFIBDataSet
    SelectSQL.Strings = (
      'select * from REP_PLACEBYKONTRAGENT(:kontr)')
    Transaction = cmDb.RT
    Database = cmDb.DB
    UpdateTransaction = cmDb.WT
    Left = 264
    Top = 232
  end
  object src_Repkontr: TDataSource
    DataSet = ds_RepKontr
    Left = 296
    Top = 232
  end
end
